detekce zpracovani CM_RECREATEWND

Otázka od: Petr Kuklik

8. 11. 2004 17:34

Dobry den,
pozna komponenta, ze prave bezi CM_RECREATEWND? A jak?

Diky Petr Kuklik

Odpovedá: Ondrej Kelle

9. 11. 2004 8:03

> pozna komponenta, ze prave bezi CM_RECREATEWND? A jak?

type
  TMyControl = class(TWinControl)
  private
    FRecreatingWnd: Boolean;
    procedure CMRecreateWnd(var Message: TMessage); message CM_RECREATEWND;
  end;

procedure TMyControl.CMRecreateWnd(var Message: TMessage);
begin
  FRecreatingWnd := True;
  try
    inherited;
  finally
    FRecreatingWnd := False;
  end;
end;

HTH
TOndrej